(tar-get-descriptor): No error for zero-length file.

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index f222c23fbf02d413c4642f00db5145cb260ed077..684396f1692691e4c0182dd06eb725c9334a7221 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -667,7 +667,7 @@ appear on disk when you save the tar-file's buffer."
                     ((eq link-p 38) "a volume header")
                     ((eq link-p 55) "an extended pax header")
                     (t "a link"))))
-    (if (zerop size) (error "This is a zero-length file"))
+    (if (zerop size) (message "This is a zero-length file"))
     descriptor))
 
 (defun tar-mouse-extract (event)